Instructions for 
Converting Specified 
Model I Programs 
for use on TRS-SO 
Model HI 



RadieHiaeif 



® 



H A DIVISION OF TANDY CORPORATION 
FORT WORTH, TEXAS 76102 



SsJt^k»iMAiaAato«w«^pi^ 



Program Conversion Procedures 

Older versions of certain Radio Shack Model I software packages require program 
changes before use on the Model III computer. These programs are: 



Cassette Portfolio (26-1506) 
Budget Management (26-1603) 
Tape Mailing List (26^1503) 
Real Estate Volume III (26-1573) 
Real Estate Volume IV (26-1574) 
Level II Basic Instruction Course - 
Dancing Demon (26-1911) 
Casino Games (26-1806) 



Part II (26-2006) 



Current versions do not require changes. 



The following programs cannot be easily converted and must be exchanged 
for Model III versions if the Model III version is not contained in the 
package : 

Mailgram (26-1564) 

Scripsit (26-1505 - Tape) & (26-1563 - Disk) 

Profile (26-1562) 

Microfiles (26-1565) 

Versafile (26-1604) 

K-8 Math (26-1715) 

Micro Movie (26-1903) 

TRS-80 Fortran (26-2201) 

Standard and Poor's Stockpack™ System (26-1507) 

Return to your Radio Shack store or dealer. They will handle the exchange. 



These programs will not run on the Model III and are not available as 
exchange items: 

Space Warp (26-1912)* 

RS-232 Communications Pack (26-1146)* 

Renumber (26-2004) 

Micro Chess (26-1901)* 

RS-Term (26-1147)* 

T-Bug (26-2001)* 

Editor/ Assembler (26-2002)* 

Tiny Pascal (26-2009)* 

Disk Editor Assembler (26-2002)* 

Visicalc (26-1566) available in November as ( 26-1567) 



*Similar programs for the Model III will be available in the future; 
check with your store or dealer for announcements. 
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The following programs are being replaced: 

In-Memory (26-1502) is replaced by (26-1508) available October 30. 
Disk Basic Instruction Course (26-2007) is replaced by (26-2010) available 
December 30. 



Special Notes: 



1. 16K Level I programs are not supported 

2. 4K Level II programs require 16K RAM and Model III BASIC 

3. The following characters are displayed differently on the Model III: 

CODE MOD I MOD III 



91 


t 


c 


92 


1 


x 


93 




] 


94 


- 


A 



These programs reflect the above cosmetic differences: 

Games Pack I (Space Taxi) (26-1805) 

Micro Music (26-1902) 

Level Basic I Instruction Course (26-2003) 

Invasion Force (26-1906) 

Cassette Portfolio (26-1506) 

Budget Management (26-1603) 

Level II Basic Instruction Course - Part I (26-2005), Part II (26-2006) 

K-8 Math (26-1715) 

Casino Games (26-1806) 



4. Disk based programs not listed require use of Convert a Model III TRSDOS command 
to produce Model III compatible disks. 

Editing Programs 

Refer to your Model III Reference Manual for instructions on power-up, loading 
programs, and saving programs. For best results, use a Radio Shack C-20 Certified 
Cassette (26-0301). All Model I software is recorded at "Low" speed (500 baud). 
It will also be helpful to familiarize yourself with BASIC'S "Edit" command. 



Delete program lines by typing each line number and pressing lENTERl . or by using 
the "Delete" command. Add lines by typing them as shown. Change lines either with 
the Basic Edit command or by retyping the lines as shown. 

Note: The underlined portions of the lines below indicate the portion to be changed. 
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System Name: Tape Mailing List Stock Number: 26-1503 

Program Name: Tape Mailing List 



Delete lines: 200-290 
Add lines: 200 REM 
Change lines: None 



ffis^p^pgg^ 



System Name: Cassette Portfolio Analysis Stock Number: 26-1506 

Program Name: Option Program 

Special Note: With these changes, hardcopy reports may be acqui red by d isplaying 

the results and typing anSwhile holding down the ISHIFT1 and E keys.* 

Delete lines: 680,685,686,705 
Add lines: None 
Change lines: 595 

Before : 

595 A*= I NKEY* : I FA*= " " THEN595ELSE 1 FA$==CHR$ (10) THENGO5UB680 
:G0T0595ELSE RETURN 

After: 

595 A*=INKEY*: IFA*=" " THEN595ELSERETURN 



System Name: Real Estate Analysis — Vol. Ill Stock Number: 26-1573 

Program Name: Income — Expense 

Delete lines: 10,20 

Add lines: None 

Change lines: 7000,7010 

Before : 

7 000 J P_E, R R / 2+l=& THEN7010 ELSE IF ERR/2+l=ll THEN7010 ELSE ON_E R RO R_GOTO0 

After: 

7000 IFERRO 11 ANDERRO-21THENONERRORGOTO0 

Before: 

7010 PRIN T "THE VALUES ENTERED CANNOT BE PROCESSED BY THIS PROGRAM" : PRINT 
=PRINT "PRESS <ENTER> TO CONTINUE " ; : FL= 1 : GOSUB50OB : PR I NT : RESUME 3800 

After: 

7010 PRINT "VALUES TOO LARGE - PRESS <ENTER> "5: FL=1 : GOSUB5000: PRINT 
: RESUME3800 

* Your system may use the [s) and [0 keys for printing screen information ... see 

your manual. 1 
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System Name: Real Estate Analysis — Volume IV Stock Number: 26-1574 

Program Name : Sensitivity Analysis 

Special Note: With these changes, hardcopy reports may be acquired by displaying 

the results and typing an E3 while holding down the ISHIFTI and El keys. 

Delete lines: 45, 50, 55, 17(9 

Add lines: None 

Change lines: 5, 17, 165, 175, 890 

Before: 

5 G0T045 



After : 

5 CLEAR50:DEFINTI-N:DIM B7< 10) ? E7< 10) ? E8< 10) ? E9< 10) ? C< 10) ? R<3) 

?V<3)?Q<3)?Ti(3)?T2<3)?P<3)?H<9)?RH3)?D<9)?D0<9)i: GOTO60 

Before : 

1 7 I F PEEK ( 1 64 1 8 ) =*46THENWD=0 

°> I N*=LEFT* (IN*? LEN < I N* ) - 1 ) ELBE I FPEEK ( 1 64 1 8 ) =430RPEEK ( 1 64 1 8 ) =45THENWS=0 

After: 

17 I FPEEK ( 16418)=46THENWD=0 

: GOTO 18 ELSE I FPEEK < 16418) =430RPEEK< 16418 )=45THENW5=0 

Before : 

165 PRINT:PRINTTAB<5)5"1. PERFORM A NEW ANALYSIS" : PRINTTAB* 5 ) 

;"2. CHANGE INPUT VALUES" : PRINTTAB( 5 ) 5 " 3. DISPLAY ANALYSIS RESULTS" *K=3 

: I FPEEK ( 1 431 2 ) ==255THEN1 75 

After: 

165 PRINTsPRINTTAB(5) ?"!„ PERFORM A NEW ANALYSIS" s PRINTTAB* 5 ) 

!"2. CHANGE INPUT VALUES" : PRINTTAB(5 ) ? "3. DISPLAY ANALYSIS RESULTS" :K<3 

Before: 

175 G05UB865 5K0=VAL< IN*) 5 IFK0<1ORK0>KTHENGOSUB840 :GOSUB840 :G0T0175. 

:ELSECLS:ONK0GOTO50 ? 105 ? 180 » 190 

After: 

175 GOSUB865sK0=VAL< IN*) : IFK0<lORK0>KTHENGOSUB840sGOSUB840sGOTO175 
SELSECLSSONK0GOTO5? 105? 180? 190 

Before: 

890 A=PEEK( 16422) :B*=PEEK< 16423) : C=PEEK< 16414) :D«PEEK< 16415 ) 

gPOKE 16414? As POKE 16415? b: POKE 16422? Cs POKE 16423? D s RETURN 

After: 

890 RETURN 
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System Name: Budget Management 
Program Name: Report Program 



Stock Number: 26-1603 



Delete lines: 10, 20 
Add lines : None 
Change lines: None 



System Name: Level II BASIC Instruction 

Course — Part II 
Program Name: Lesson 3 



Stock Number: 26-2006 



Delete lines: 6, 580 
Add lines: None 
Change lines: 3, 470 

Before : 

3 CLSs PRINTCHR*(23):PRINTai35»" " S :FORI=0TO125 :SET < I » 0) :5ET< I » 47 ) 5 NEXT 

:FORI=0TO47:SET(0? I) :SET<125» I) : NEXT: RETURN 

After: 

3 CLS: RETURN 

Before: 

470 L 1 =4 s L2=34 : C 1 =0 : C2= 101: G0SUB6 : C 1 =37 : C2=37 : G0SUB6 : C2= 1 1 : C 1 =0 : L 1 = 1 

:L2=10sGO5UB6 s RETURN 

After: 

470 RETURN 



System Name: Level II BASIC Instruction 

Course — Part II 
Program Name: Lesson 4 



Stock Number: 26-2006 



Delete lines: 6,663 
Add lines: None 
Change lines: 3, 660 
Before: 

3 CL5: PRINTCHR$<23) :PRINTfll35» " " ; :FORI-0TO125:SET< 1*0) :SFT<I»47) :NEXT 
:FORI~0TOA7:SET(0» I ) : SET ( 125 5 I ) : NEXT: RETURN 

After: 

3 CLS s RETURN 

Before: 

660 L 1 =25 : L2=3 1 : C 1 =2 : C2= 1 08 : G0SUB6 : C 1 =20 : C2=74 : G0SUB6 : C2=66 : C 1 =48 

s G0SUB6 : L2=30 : L 1 =30 : C 1 =20 : C2=48 : G05UB6 : C 1 =66 : C2=74 : G0SUB6 : G0SUB7 

After: 

660 G0SUB7 



System Name: Casino Game Package Stock Number: 26-1806 

Program Name: Baccarat 

Delete lines: 10,20 

Add lines: None 

Change lines: 220, 280, 290, 940, 1010, 1110, 1150, 1170, 1180 

Before : 

220 CLSsPRINTCHR*Jj23) SPRINT34? "* BACCARAT*" 
SPRINTS4485 "YOUR TRS-80 WILL BE BUSY FOR ONE"? 
SPRINT "MINUTE SETTING UP GRAPHIC ARRAYS"? 

After: 

220 CLS:PRINTCHR*(23):PRINTa4» M * BACCARAT*" 
:PRINT3A56» "SETTING UP GRAPHIC ARRAYS"? 



Before : 

280 FL=-2:PRINT375» "HOW MANY PLAYERS (1 TO 12) "?sGO5UB40 
sPX=VAL< IN*) : IFPX<1ORPX>12THEN280ELSEFORN=1TOPX 



After ' 

280 FL=-2 : PR I NT375 » " HOW MANY PLAYERS? (1-12) " ? : GOSUB40 

sPX=VAL< IN*) : IFPX< 10RPX> 12THEN280ELSEFORN=1TOPX 



Before : 

290 FL=8s PRINTS PRINTTAB( 1 1 ) "ENTER NAME OF PLAYER NUMBER " ?N? " " ? 
sGOSUB40sSN(N)=IN* 

After * 

290 FL=8:PRINTsPRINTTAB( 11) "ENTER NAME OF PLAYER "?N?" "? 

sGOSUB40sSN(N)=IN* 

Before : 

940 CO=0sPP=0sCLSsPRINTail 9 S7sPRINTSTRING*(64? 191) SPRINT 
:PRINTTAB(9)S2?" WE WILL NOW SHUFFLE EIGHT DECKS OF CARDS " ?52? 



After: 

940 CO=05PP=0sCLSsPRINTai 1 »S7: PRINTSTRING*<64» 191 ) SPRINT 
SPRINTTAB(14)S2?" SHUFFLING EIGHT DECKS OF CARDS "?S2? 

Before: 

1010 CLS:PRINTaii»S7 

sPRINT"ENTER DECK YOU WOULD LIKE TO REVIEW ( 1-8 )"? 

:PRINTS977»R25" PRESS ENTER TO RETURN "?S2? 

After: 

1010 CLS:PRINTail»S7:PRINT"ENTER DECK TO REVIEW ( 1-8 )"= 

sPRINTS977,R2?" PRESS ENTER TO RETURN "?S2? 






System Name: Casino Game Package (continued) Stock Number: 26-1806 

Program Name: Baccarat 

Before: 

1110 PRINTai2B»CHR*<30)5:PRINTa850»S2? B ENTER NAME OF NEW PLAYER "? 
sFL=8sGOSUB40sSN(X5)=IN$sIFIN*=" "THENSN< X5 )=" PLAYER" +STR* < X5 ) 



After: 

1110 PRINTai2B»CHR*<30)5:PRINTaB50»S2; u NEW PLAYER ? " ; sFL=8sGO5UB40 

: SN ( X5 ) = IN$s IF IN$=" "THENSN< X5 >=" PLAYER" +STR*<X5) 

Before: 

1150 PRINT3869? "CARDS LEFT IN SHOE -> " 5 416-CO? 

SPRINTS978 ? S2?" PRESS ENTER TO RETURN "?S2? 

After : 

1150 PRINTa869? "CARDS LEFT -> » ;416-CC>5 

SPRINTS978 ? S2?" PRESS ENTER TO RETURN "?S2? 

Before: 

U70CLSJ PRINTaiJ » S7? : PRINTS256* S2 

5" BANKERS HAND = B / PLAYERS HAND = P ."SPRINT 
SPRINTS2?" MINIMUM BET $ 20.00 / MAXIMUM $ 2» 000. 00. " : PRINT 
SPRINTS2;" EXAMPLE: PLAYER # 2 BETS ON THE BANKER FOR $ 50." 

After: 

1170 CL S : P R I : NT a 1 1 » S7 5 : P R I NT 325 6 » S2 

?" BANKERS HAND = B / PLAYERS HAND = P ."SPRINT 

SPRINTS2?" MINIMUM BET $ 20.00 / MAXIMUM * 2» 000. 00. " : PRINT 

Before: 

1180 PRINT S2;" ENTER --> / 2B50 / THATS ALL THERE IS TO IT." 

: PRINT SPRINTS2;" PRESS <ENTER> TO RETURN (ENTER <0> FOR HIT OPTION) 
" ; : INPUTSI sCK=-l : IFSI="0"THENSF="0" :GOTO670ELSESF=" C" :GOTO670 

After : 

1180 PRINTS PRINT 

SPRINTS2"," PRESS <ENTER> TO RETURN (ENTER <0> FOR HIT OPTION) » ; 

s INPUTSI : CK=-1 : 1FSI="0"THENSF="0" :GO7O670ELSESF=" C" SGOTO670 






System Name: Dancing Demon Stock Number: 26-1911 

Program Name: Dancing Demon 

Delete lines: 263 
Add lines: None 
Change lines: 600, 650 

Before : 

600 CLS : PRINT: PRINT" PREPARE THE TAPE MACHINE TO RECORD AND PRESS 
ENTER" 



After: 

600 CLS: PRINT "LOAD TAPE ( RECORD ) » ENTER" 



Before: 

650 CLS : PRINT: PRINT" PREPARE THE TAPE MACHINE TO PLAY BACK AND P 
RESS ENTER" 

After: 

650 CIS: PRINT" I OAD TAPE (PLAY). ENTER" 
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